home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Magazine / SFX / sfx-data / _rexx / ToOctaMed.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-12-15  |  877 b   |  44 lines
  1. /****h* SoundFX/ToOctaMed.rexx [1.10] *
  2. *
  3. *  NAME
  4. *    ToOctaMed.rexx
  5. *  COPYRIGHT
  6. *    $VER: ToOctaMed.rexx 1.10 (23.09.98) © by David O'Reilly & Stefan Kost 1998-1998
  7. *  FUNCTION
  8. *    exports the current sample to OctaMed Sound Studio
  9. *  AUTHOR
  10. *    David O'Reilly            dr
  11. *    Stefan Kost            sk
  12. *  CREATION DATE
  13. *    17.Jun.1998
  14. *  MODIFICATION HISTORY
  15. *    23.Sep.1998    V 1.10    adapted to SoundFX (sk)
  16. *    17.Jun.1998    V 1.00    initial version (dr)
  17. *  NOTES
  18. *
  19. *******
  20. */
  21.  
  22. OPTIONS RESULTS
  23. ADDRESS 'REXX_SFX'
  24.  
  25. SFX_GetActiveBuffer
  26. buf1=RESULT
  27. IF buf1>-1 THEN DO
  28.     SFX_GetBufferName buf1
  29.     smp_name=RESULT
  30.     SFX_SelSaver 'IFF-AIFF'
  31.     SFX_SaveSample 't:tmp_sfx2om.aiff'
  32.  
  33.     ADDRESS 'OCTAMED_REXX'
  34.  
  35.     IN_LOAD 't:tmp_sfx2om.aiff NOSL'
  36.     IN_SETNAME smp_name
  37.  
  38.     ADDRESS COMMAND 'delete >nil: t:tmp_sfx2om.aiff'
  39. END
  40. ELSE SFX_Message '"No sample to operate on !"'
  41. ADDRESS 'REXX_SFX'
  42. SFX_Activate
  43. EXIT
  44.